home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / monitory / syslog_v1.00 / uninstall / uninstall.syslog < prev   
Text File  |  1995-11-13  |  3KB  |  104 lines
  1. ;
  2. ; SysLog UnInstallation script
  3. ;
  4. ; Copyright © 1995 Petri Nordlund. All rights reserved.
  5. ;
  6. ; $Id: UnInstall.SysLog 1.1 1995/11/02 20:21:25 petrin Exp petrin $
  7. ;
  8. ; Languages available:
  9. ;   English (default)
  10. ;
  11.  
  12.  
  13. ; =======================================================================
  14. ;   Set up some variables
  15. ; =======================================================================
  16.  
  17. (set TRUE        1)
  18. (set FALSE        0)
  19.  
  20. ; =======================================================================
  21. ;   Set up localized strings
  22. ; =======================================================================
  23.  
  24. ;
  25. ; ===== English
  26. ;
  27. (set #please_close "\nThis program will DELETE SysLog from your harddisk. All files that belong to SysLog will be deleted. Other files won't be touched.\n\n\nPLEASE CLOSE THE SysLog DIRECTORY WINDOW IN WORKBENCH SCREEN SO THE DIRECTORY CAN BE DELETED.")
  28. (set #userstartup "; SysLog has been uninstalled.")
  29. (set #rempath "\nA `Path'-command in your \"S:User-Startup\" file will now be removed.")
  30. (set #remhelp "When you installed SysLog, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  31. (set #done "\nSysLog has been uninstalled successfully.")
  32.  
  33.  
  34. ; =======================================================================
  35. ;   Initialization
  36. ; =======================================================================
  37.  
  38. ; Logfile is written to RAM:
  39. (set @default-dest "RAM:")
  40.  
  41.  
  42. ; change userlevel to expert
  43. (procedure expert_level
  44.     ((user 2))
  45. )
  46. ; reset userlevel back to default
  47. (procedure default_level
  48.     ((user default-level))
  49. )
  50. ; store off userlevel
  51. (procedure save_default_level
  52.     ((set default-level @user-level))
  53. )
  54.  
  55. (save_default_level)
  56. (expert_level)
  57.  
  58. ; =======================================================================
  59. ;   Uninstall
  60. ; =======================================================================
  61.  
  62. (complete 0)
  63.  
  64. (message #please_close)
  65.  
  66. (run "SLDest:SysLog/SysLogDaemon QUIT")
  67.  
  68. (complete 20)
  69.  
  70. (run "Delete SLDest:SysLog ALL FORCE QUIET")
  71. (run "Delete SLDest:SysLog.info FORCE QUIET")
  72.  
  73. (complete 40)
  74.  
  75. (run "Delete DEVS:Mountlist.LOG FORCE QUIET")
  76. (run "Delete DEVS:DOSDrivers/LOG FORCE QUIET")
  77. (run "Delete DEVS:DOSDrivers/LOG.info FORCE QUIET")
  78.  
  79. (complete 70)
  80.  
  81. (run "Delete L:LOG-Handler FORCE QUIET")
  82. (run "Delete LIBS:syslog.library FORCE QUIET")
  83.  
  84. (default_level)
  85.  
  86. (complete 90)
  87.  
  88. ; ===== Remove path-command from s:user-startup
  89. (startup "SysLog"
  90.     (prompt (#rempath))
  91.     (help #remhelp)
  92.     (command #userstartup)
  93. )
  94.  
  95. (complete 100)
  96.  
  97. (makeassign "SLDest" (safe))
  98.  
  99. (expert_level)
  100.  
  101. (message #done)
  102.  
  103. (exit (quiet))
  104.